var
   c: char;
   i: integer;
   r: real;
   fi, fo: char;
#include <stdio.h>
char c;
int i;
float r;
FILE * fi, fo;
C++ only:
NO PASCAL        fi >> c >> i >> r >> s;
EQUIVALENT       while (fi.get() != ‘\n’);

           fo << “c=“ << c << “ i=“ << i
           << “ r=“ << r << s << endl;